home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_29744.txt < prev    next >
Text File  |  1990-08-14  |  15KB  |  675 lines
  1. -- background: 29744 from stack: in
  2. -- bmap block id: 61121
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Report Cards Classes
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global buttonNumber
  9.   installMenuBar 1120,1121,1122,1123,1124,1125,-204,-205
  10.   checkMenuItem 1123,1,true
  11. end openBackground
  12.  
  13. on closeBackground
  14.   checkMenuItem 1123,1,false
  15.   repeat with index = 19 to 30
  16.     set icon of background button id index to "Md Unchecked Box"
  17.   end repeat
  18. end closeBackground
  19.  
  20. on doMenu menuItem
  21.   global buttonNumber
  22.   lock screen
  23.   if menuItem contains "About" then
  24.     resetCard
  25.     restoreMenuBar
  26.     go to card "Report Cards" of background "About"
  27.     unlock screen with zoom close
  28.   else if menuItem is "Home" then
  29.     resetCard
  30.     restoreMenuBar
  31.     go home
  32.   else if menuItem contains "Quit" then
  33.     resetCard
  34.     restoreMenuBar false
  35.     go to card "Mac School¬Æ Shell"
  36.     unlock screen with zoom close
  37.   else if menuItem is "Open" then
  38.     push card
  39.     get line buttonNumber of bg field "Class"
  40.     go to card it & " Students" of this bg
  41.   else if menuItem is "By Class" then
  42.   else if menuItem is "By Student" then
  43.     resetCard
  44.     go to background "Report Cards"
  45.   else if menuItem is "Sort Order‚Ķ" then
  46.     push card
  47.     go to card menuItem of this background
  48.   else if menuItem is "Term Information‚Ķ" then
  49.     push card
  50.     get line buttonNumber of bg field "Class"
  51.     go to card it & " Term" of this bg
  52.   else if (menuItem is "CSL Attendance") OR (menuItem is "CSL Marks") OR (menuItem is "Report Manager") then
  53.     resetCard
  54.     go to background menuItem
  55.   end if
  56.   unlock screen
  57. end doMenu
  58.  
  59. on groupOne
  60.   global buttonNumber
  61.   if not hilite of target then
  62.     set hilite of background button buttonNumber to false
  63.     set hilite of target to true
  64.     put number of target into buttonNumber
  65.   else
  66.     lock screen
  67.     push card
  68.     get line buttonNumber of bg field "Class"
  69.     go to card it & " Students" of this bg
  70.     unlock screen
  71.   end if
  72. end groupOne
  73.  
  74. on groupTwo shiftKey
  75.   if the shiftKey is down OR shiftKey is down then
  76.     if icon of target is "5065" then
  77.       repeat with index = 19 to 30
  78.         set icon of background button id index to "Md Unchecked Box"
  79.       end repeat
  80.     else
  81.       repeat with index = 19 to 30
  82.         set icon of background button id index to "Md Checked Box"
  83.       end repeat
  84.     end if
  85.   else
  86.     if icon of target is "5065" then
  87.       set icon of target to "Md Unchecked Box"
  88.     else set icon of target to "Md Checked Box"
  89.   end if
  90. end groupTwo
  91.  
  92. on resetCard
  93.   global buttonNumber
  94.   if buttonNumber is not 1 then
  95.     set hilite of background button buttonNumber to false
  96.     set hilite of background button 1 to true
  97.     put 1 into buttonNumber
  98.   end if
  99. end resetCard
  100.  
  101. on editText
  102.   repeat with index = 7 to 18
  103.     set visible of background button id index to not visible of background button id index
  104.   end repeat
  105.   repeat with index = 1 to 6
  106.     set lockText of background field id index to not lockText of background field id index
  107.   end repeat
  108. end editText
  109.  
  110. on newCard
  111.   moveTextFirst
  112. end newCard
  113.  
  114. on moveTextFirst
  115.   --exit moveTextFirst
  116.   put bg field "Class Number" of first card of this bg into bg field "Class Number" of this card
  117.   put bg field "Grade" of first card of this bg into bg field "Grade" of this card
  118.   put bg field "Class" of first card of this bg into bg field "Class" of this card
  119.   put bg field "Teacher" of first card of this bg into bg field "Teacher" of this card
  120.   put bg field "Status" of first card of this bg into bg field "Status" of this card
  121.   put bg field "Term" of first card of this bg into bg field "Term" of this card
  122. end moveTextFirst
  123.  
  124. on moveTextLast
  125.   --exit moveTextLast
  126.   put bg field "Class Number" of this card into bg field "Class Number" of last card of this bg
  127.   put bg field "Grade" of this card into bg field "Grade" of last card of this bg
  128.   put bg field "Class" of this card into bg field "Class" of last card of this bg
  129.   put bg field "Teacher" of this card into bg field "Teacher" of last card of this bg
  130.   put bg field "Status" of this card into bg field "Status" of last card of this bg
  131.   put bg field "Term" of this card into bg field "Term" of last card of this bg
  132. end moveTextLast
  133.  
  134.  
  135. -- part 1 (field)
  136. -- low flags: 01
  137. -- high flags: 0000
  138. -- rect: left=9 top=44 right=59 bottom=90
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 0
  142. -- font id: 3
  143. -- text size: 10
  144. -- style flags: 0
  145. -- line height: 13
  146. -- part name: Class Number
  147.  
  148.  
  149. -- part 2 (field)
  150. -- low flags: 01
  151. -- high flags: 0000
  152. -- rect: left=399 top=44 right=59 bottom=504
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 3
  157. -- text size: 10
  158. -- style flags: 0
  159. -- line height: 13
  160. -- part name: Date
  161.  
  162.  
  163. -- part 3 (field)
  164. -- low flags: 01
  165. -- high flags: 0000
  166. -- rect: left=8 top=97 right=314 bottom=52
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 65535
  170. -- font id: 3
  171. -- text size: 10
  172. -- style flags: 0
  173. -- line height: 18
  174. -- part name: Grade
  175.  
  176.  
  177. -- part 4 (field)
  178. -- low flags: 01
  179. -- high flags: 0000
  180. -- rect: left=52 top=97 right=314 bottom=218
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 0
  184. -- font id: 3
  185. -- text size: 10
  186. -- style flags: 0
  187. -- line height: 18
  188. -- part name: Class
  189.  
  190.  
  191. -- part 5 (field)
  192. -- low flags: 01
  193. -- high flags: 0000
  194. -- rect: left=218 top=97 right=314 bottom=400
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 0
  198. -- font id: 3
  199. -- text size: 10
  200. -- style flags: 0
  201. -- line height: 18
  202. -- part name: Teacher
  203.  
  204.  
  205. -- part 6 (field)
  206. -- low flags: 01
  207. -- high flags: 0000
  208. -- rect: left=413 top=97 right=314 bottom=444
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 1
  212. -- font id: 3
  213. -- text size: 9
  214. -- style flags: 0
  215. -- line height: 18
  216. -- part name: Status
  217.  
  218.  
  219. -- part 7 (button)
  220. -- low flags: 00
  221. -- high flags: 4000
  222. -- rect: left=8 top=98 right=115 bottom=468
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 1
  226. -- font id: 0
  227. -- text size: 12
  228. -- style flags: 0
  229. -- line height: 16
  230. -- part name: 
  231. ----- HyperTalk script -----
  232. on mouseUp
  233.   groupOne
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part 8 (button)
  239. -- low flags: 00
  240. -- high flags: 0000
  241. -- rect: left=8 top=116 right=133 bottom=468
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: 
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   groupOne
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 9 (button)
  258. -- low flags: 00
  259. -- high flags: 0000
  260. -- rect: left=8 top=134 right=151 bottom=468
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: 
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   groupOne
  272. end mouseUp
  273.  
  274.  
  275.  
  276. -- part 10 (button)
  277. -- low flags: 00
  278. -- high flags: 0000
  279. -- rect: left=8 top=152 right=169 bottom=468
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: 
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   groupOne
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 11 (button)
  296. -- low flags: 00
  297. -- high flags: 0000
  298. -- rect: left=8 top=170 right=187 bottom=468
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: 
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   groupOne
  310. end mouseUp
  311.  
  312.  
  313.  
  314. -- part 12 (button)
  315. -- low flags: 00
  316. -- high flags: 0000
  317. -- rect: left=8 top=188 right=205 bottom=468
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: 
  326. ----- HyperTalk script -----
  327. on mouseUp
  328.   groupOne
  329. end mouseUp
  330.  
  331.  
  332.  
  333. -- part 13 (button)
  334. -- low flags: 00
  335. -- high flags: 0000
  336. -- rect: left=8 top=206 right=223 bottom=468
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 1
  340. -- font id: 0
  341. -- text size: 12
  342. -- style flags: 0
  343. -- line height: 16
  344. -- part name: 
  345. ----- HyperTalk script -----
  346. on mouseUp
  347.   groupOne
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 14 (button)
  353. -- low flags: 00
  354. -- high flags: 0000
  355. -- rect: left=8 top=224 right=241 bottom=468
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: 
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   groupOne
  367. end mouseUp
  368.  
  369.  
  370.  
  371. -- part 15 (button)
  372. -- low flags: 00
  373. -- high flags: 0000
  374. -- rect: left=8 top=242 right=259 bottom=468
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: 
  383. ----- HyperTalk script -----
  384. on mouseUp
  385.   groupOne
  386. end mouseUp
  387.  
  388.  
  389.  
  390. -- part 16 (button)
  391. -- low flags: 00
  392. -- high flags: 0000
  393. -- rect: left=8 top=260 right=277 bottom=468
  394. -- title width / last selected line: 0
  395. -- icon id / first selected line: 0 / 0
  396. -- text alignment: 1
  397. -- font id: 0
  398. -- text size: 12
  399. -- style flags: 0
  400. -- line height: 16
  401. -- part name: 
  402. ----- HyperTalk script -----
  403. on mouseUp
  404.   groupOne
  405. end mouseUp
  406.  
  407.  
  408.  
  409. -- part 17 (button)
  410. -- low flags: 00
  411. -- high flags: 0000
  412. -- rect: left=8 top=278 right=295 bottom=468
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 0 / 0
  415. -- text alignment: 1
  416. -- font id: 0
  417. -- text size: 12
  418. -- style flags: 0
  419. -- line height: 16
  420. -- part name: 
  421. ----- HyperTalk script -----
  422. on mouseUp
  423.   groupOne
  424. end mouseUp
  425.  
  426.  
  427.  
  428. -- part 18 (button)
  429. -- low flags: 00
  430. -- high flags: 0000
  431. -- rect: left=8 top=296 right=313 bottom=468
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 0 / 0
  434. -- text alignment: 1
  435. -- font id: 0
  436. -- text size: 12
  437. -- style flags: 0
  438. -- line height: 16
  439. -- part name: 
  440. ----- HyperTalk script -----
  441. on mouseUp
  442.   groupOne
  443. end mouseUp
  444.  
  445.  
  446.  
  447. -- part 19 (button)
  448. -- low flags: 00
  449. -- high flags: 0000
  450. -- rect: left=472 top=99 right=113 bottom=486
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 5064 / 5064
  453. -- text alignment: 1
  454. -- font id: 3
  455. -- text size: 10
  456. -- style flags: 0
  457. -- line height: 13
  458. -- part name: 
  459. ----- HyperTalk script -----
  460. on mouseUp shiftKey
  461.   groupTwo shiftKey
  462. end mouseUp
  463.  
  464.  
  465. -- part 20 (button)
  466. -- low flags: 00
  467. -- high flags: 0000
  468. -- rect: left=472 top=117 right=131 bottom=486
  469. -- title width / last selected line: 0
  470. -- icon id / first selected line: 5064 / 5064
  471. -- text alignment: 1
  472. -- font id: 3
  473. -- text size: 10
  474. -- style flags: 0
  475. -- line height: 13
  476. -- part name: 
  477. ----- HyperTalk script -----
  478. on mouseUp shiftKey
  479.   groupTwo shiftKey
  480. end mouseUp
  481.  
  482.  
  483. -- part 21 (button)
  484. -- low flags: 00
  485. -- high flags: 0000
  486. -- rect: left=472 top=135 right=149 bottom=486
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 5064 / 5064
  489. -- text alignment: 1
  490. -- font id: 3
  491. -- text size: 10
  492. -- style flags: 0
  493. -- line height: 13
  494. -- part name: 
  495. ----- HyperTalk script -----
  496. on mouseUp shiftKey
  497.   groupTwo shiftKey
  498. end mouseUp
  499.  
  500.  
  501. -- part 22 (button)
  502. -- low flags: 00
  503. -- high flags: 0000
  504. -- rect: left=472 top=153 right=167 bottom=486
  505. -- title width / last selected line: 0
  506. -- icon id / first selected line: 5064 / 5064
  507. -- text alignment: 1
  508. -- font id: 3
  509. -- text size: 10
  510. -- style flags: 0
  511. -- line height: 13
  512. -- part name: 
  513. ----- HyperTalk script -----
  514. on mouseUp shiftKey
  515.   groupTwo shiftKey
  516. end mouseUp
  517.  
  518.  
  519. -- part 23 (button)
  520. -- low flags: 00
  521. -- high flags: 0000
  522. -- rect: left=472 top=171 right=185 bottom=486
  523. -- title width / last selected line: 0
  524. -- icon id / first selected line: 5064 / 5064
  525. -- text alignment: 1
  526. -- font id: 3
  527. -- text size: 10
  528. -- style flags: 0
  529. -- line height: 13
  530. -- part name: 
  531. ----- HyperTalk script -----
  532. on mouseUp shiftKey
  533.   groupTwo shiftKey
  534. end mouseUp
  535.  
  536.  
  537. -- part 24 (button)
  538. -- low flags: 00
  539. -- high flags: 0000
  540. -- rect: left=472 top=189 right=203 bottom=486
  541. -- title width / last selected line: 0
  542. -- icon id / first selected line: 5064 / 5064
  543. -- text alignment: 1
  544. -- font id: 3
  545. -- text size: 10
  546. -- style flags: 0
  547. -- line height: 13
  548. -- part name: 
  549. ----- HyperTalk script -----
  550. on mouseUp shiftKey
  551.   groupTwo shiftKey
  552. end mouseUp
  553.  
  554.  
  555. -- part 25 (button)
  556. -- low flags: 00
  557. -- high flags: 0000
  558. -- rect: left=472 top=207 right=221 bottom=486
  559. -- title width / last selected line: 0
  560. -- icon id / first selected line: 5064 / 5064
  561. -- text alignment: 1
  562. -- font id: 3
  563. -- text size: 10
  564. -- style flags: 0
  565. -- line height: 13
  566. -- part name: 
  567. ----- HyperTalk script -----
  568. on mouseUp shiftKey
  569.   groupTwo shiftKey
  570. end mouseUp
  571.  
  572.  
  573. -- part 26 (button)
  574. -- low flags: 00
  575. -- high flags: 0000
  576. -- rect: left=472 top=225 right=239 bottom=486
  577. -- title width / last selected line: 0
  578. -- icon id / first selected line: 5064 / 5064
  579. -- text alignment: 1
  580. -- font id: 3
  581. -- text size: 10
  582. -- style flags: 0
  583. -- line height: 13
  584. -- part name: 
  585. ----- HyperTalk script -----
  586. on mouseUp shiftKey
  587.   groupTwo shiftKey
  588. end mouseUp
  589.  
  590.  
  591. -- part 27 (button)
  592. -- low flags: 00
  593. -- high flags: 0000
  594. -- rect: left=472 top=243 right=257 bottom=486
  595. -- title width / last selected line: 0
  596. -- icon id / first selected line: 5064 / 5064
  597. -- text alignment: 1
  598. -- font id: 3
  599. -- text size: 10
  600. -- style flags: 0
  601. -- line height: 13
  602. -- part name: 
  603. ----- HyperTalk script -----
  604. on mouseUp shiftKey
  605.   groupTwo shiftKey
  606. end mouseUp
  607.  
  608.  
  609. -- part 28 (button)
  610. -- low flags: 00
  611. -- high flags: 0000
  612. -- rect: left=472 top=261 right=275 bottom=486
  613. -- title width / last selected line: 0
  614. -- icon id / first selected line: 5064 / 5064
  615. -- text alignment: 1
  616. -- font id: 3
  617. -- text size: 10
  618. -- style flags: 0
  619. -- line height: 13
  620. -- part name: 
  621. ----- HyperTalk script -----
  622. on mouseUp shiftKey
  623.   groupTwo shiftKey
  624. end mouseUp
  625.  
  626.  
  627. -- part 29 (button)
  628. -- low flags: 00
  629. -- high flags: 0000
  630. -- rect: left=472 top=279 right=293 bottom=486
  631. -- title width / last selected line: 0
  632. -- icon id / first selected line: 5064 / 5064
  633. -- text alignment: 1
  634. -- font id: 3
  635. -- text size: 10
  636. -- style flags: 0
  637. -- line height: 13
  638. -- part name: 
  639. ----- HyperTalk script -----
  640. on mouseUp shiftKey
  641.   groupTwo shiftKey
  642. end mouseUp
  643.  
  644.  
  645. -- part 30 (button)
  646. -- low flags: 00
  647. -- high flags: 0000
  648. -- rect: left=472 top=297 right=311 bottom=486
  649. -- title width / last selected line: 0
  650. -- icon id / first selected line: 5064 / 5064
  651. -- text alignment: 1
  652. -- font id: 3
  653. -- text size: 10
  654. -- style flags: 0
  655. -- line height: 13
  656. -- part name: 
  657. ----- HyperTalk script -----
  658. on mouseUp shiftKey
  659.   groupTwo shiftKey
  660. end mouseUp
  661.  
  662.  
  663. -- part 31 (field)
  664. -- low flags: 01
  665. -- high flags: 0000
  666. -- rect: left=35 top=315 right=328 bottom=52
  667. -- title width / last selected line: 0
  668. -- icon id / first selected line: 0 / 0
  669. -- text alignment: 0
  670. -- font id: 3
  671. -- text size: 9
  672. -- style flags: 0
  673. -- line height: 12
  674. -- part name: Term
  675.